home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1989 July / 64er_Magazin_89-07_1989_Markt__Technik_de_Side_A.d64 / teil 2.listing 2 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  587b  |  22 lines
  1. 10 .ba 49152
  2. 20 .gl irqvec     = $0314   ;irqvektor
  3. 30 .gl irqalt     = $ea31   ;alte irq-routine
  4. 100 init sei;irq sperren
  5. 110  lda#<(irqneu);irq-vektor auf neue
  6. 120  ldx#>(irqneu);irq-routine stellen
  7. 130  stairqvec
  8. 140  stxirqvec+1
  9. 150  cli;irq wieder zulassen
  10. 160  rts;und zurueck...
  11. 170 ;
  12. 180 deinit sei;irq sperren
  13. 190  lda#<(irqalt);vektor mit startadresse
  14. 200  ldx#>(irqalt);der alten irq-routine belegen
  15. 210  stairqvec
  16. 220  stxirqvec+1
  17. 230  cli;irq wieder zulassen
  18. 240  rts;und zurueck...
  19. 250 ;
  20. 260 irqneu inc1024;1024 inkrementieren
  21. 270  jmpirqalt;in die alte irq-routine
  22.